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Abstract 

There are different notions of computation, the most popular being monads, applicative functors, 
and arrows. In this article we show that these three notions can be seen as monoids in a monoidal 
category. We demonstrate that at this level of abstraction one can obtain useful results which can be 
instantiated to the different notions of computation. In particular, we show how free constructions 
and Cayley representations for monoids translate into useful constructions for monads, applicative 
functors, and arrows. Moreover, the uniform presentation of all three notions helps in the analysis of 
the relation between them. 


1 Introduction 

When constructing a semantic model of a system or when structuring computer code, 
there are several notions of computation that one might consider. Monads ( |Moggi, 1 989| 
|Moggi, \99\) are the most popular notion, but other notions, such as arrows ( jHughes, 2000| ) 
and, more recently, applicative functors dMcBride & Paterson, 2008) 1 have been gaining 
widespread acceptance. 

Each of these notions of computation has particular characteristics that makes them more 
suitable for some tasks than for others. Nevertheless, there is much to be gained from 
unifying all three different notions under a single conceptual framework. 

In this article we show how all three of these notions of computation can be cast as 
a monoid in a monoidal category. Monads are known to be monoids in a monoidal cate¬ 
gory of endofunctors ( |Mac Lane, 1971|[Barr & Wells, 1985| ). Moreover, strong monads are 
monoids in a monoidal category of strong endofunctors. Arrows have been recently shown 
to be strong monoids in a monoidal category of profunctors by Jacobs et al. (12009b . Ap¬ 
plicative functors, on the other hand, are usually presented as lax monoidal functors with a 
compatible strength dMcBride & Paterson, 2008HJaskelioff & Rypacek, 2012[|Paterson, 20 12) >. 
However, in the category-theory community, it is known that lax monoidal functors are 
monoids with respect to the Day convolution, and hence applicative functors are also 
monoids in a monoidal category of endofunctors using the Day convolution as a ten¬ 
sor dDay, 1973] >. 

Therefore, we unify the analysis of three different notions of computation, namely mon¬ 
ads, applicative functors, and arrows, by looking at them as monoids in a monoidal cate¬ 
gory. In particular, we make explicit the relation between applicative functors and monoids 
with respect to the Day convolution, and we simplify the characterisation of arrows. Unlike 
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the approach to arrows of Jacobs et al. (12009b . where the operation first is added on top of 
the monoid structure, we obtain that operation from the monoidal structure of the underly¬ 
ing category. Furthermore, we show that at the level of abstraction of monoidal categories 
one can obtain useful results, such as free constructions and Cayley representations. 

Free constructions are often used in programming in order to represent abstract syntax 
trees. For instance, free constructions are used to define deep embeddings of domain- 
specific languages. Traditionally, one uses a free monad to represent abstract syntax trees, 
with the bind operation (Kleisli extension) acting as a form of simultaneous substitution. 
However, in certain cases, the free applicative functor is a better fit ( |Capriotti & Kaposi, 2014[ >. 
The free arrow, on the other hand, has been less explored and we know of no publication 
that has an implementation of it. 

The Cayley representation theorem states that every group is isomorphic to a group of 
permutations ( |Cayley, 1854| >. Hence, one can work with a concrete group of permutations 
instead of working with an abstract group. The representation theorem does not really 
use the inverse operation of groups so one can generalise the representation to monoids, 
yielding a Cayley representation theorem for monoids ( [Jacobson, 20091 >. 

In functional programming, the Cayley theorem appears as an optimisation by change of 
representation. We identify two known optimisations, namely difference lists ( |Hughes, 1986[ >, 
and the codensity monad transformation ( |Voigtlander, 2008[ IHutton et al., 2010| ) as being 
essentially the same, since both are instances of the general Cayley representation of 
monoids in a monoidal category. Moreover, we obtain similar transformations for applica¬ 
tive functors and arrows by analysing their Cayley representations. 

Given the three notions of computation, one may ask what is the relation between them. 
Lindley et al. (1201 lb address this question by studying the equational theories induced by 
each calculus. Since the different notions are monoids in a monoidal category, a categor¬ 
ical approach could be to ask about the relation between the corresponding categories of 
monoids. However, another consequence of having a unified view is that we can ask a 
deeper question instead and analyse the relation between the different monoidal categories 
that support them. Then, we obtain the relation between their monoids as a corollary. 

Concretely, the article makes the following contributions: 


• We present a unified view of monads, applicative functors, and arrows as monoids 
in a monoidal category. Although the results are known in other communities, the 
case of the applicative functors as monoids seems to have been overlooked in the 
functional programming community. 

• We show how the Cayley representation of monoids unifies two different known 
optimisations, namely difference lists and the codensity monad transformation. The 
similarity between these two optimisations has been noticed before, but now we 
make the relation precise and demonstrate that they are two instances of the same 
change of representation. 

• We apply the characterisation of applicative functors as monoids to obtain a free 
construction and a Cayley representation for applicative functors. In this way, we 
clarify the construction of free applicative functors as explained by Capriotti and 
Kaposi (12014b . The Cayley representation for applicative functors is entirely new. 
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• We clarify the view of arrows as monoids by introducing the strength in the monoidal 
category. In previous approaches, the strength was added to the monoids, while in 
this article we consider a category with strong profunctors. Our approach leads to a 
new categorical model of arrows and to the first formulation of free arrows. 

• We analyse the relation between the monoidal categories that give rise to monads, 
applicative functors, and arrows, by constructing monoidal functors between them. 

The rest of the article is structured as follows. In Section 11.11 we introduce the Cay¬ 
ley representation for ordinary monoids. In Section |2] we introduce monoidal categories, 
monoids, free monoids and the Cayley representation for monoids in a monoidal category. 
In Section [3 we instantiate these constructions to a category of endofunctors, with com¬ 
position as a tensor and obtain monads, free monads, and the Cayley representation for 
monads. In Section [5] we do the same for applicative functors. Before that, we introduce 
in Section [4] the notions of ends and coends needed to define and work with the Day 
convolution. In Section [6] we work in a category of Profunctors to obtain pre-arrows, 
their free constructions, and their Cayley representations. In section [71 we turn to arrows, 
analyse the relation between arrows and pre-arrows, and construct free arrows and an arrow 
representation. Finally, in section[8] we analyse the relation between the different monoidal 
categories considered in the previous sections, and conclude in Section |9l 
The article is aimed at functional programmers with knowledge of basic category theory 
concepts, such as categories, functors, and adjunctions. We provide an introduction to more 
advanced concepts, such as monoidal categories and ends. 


In frames like the one surrounding this paragraph, we include Haskell 
implementations of several of the categorical concepts of the article. The idea is not 
to formalise these concepts in Haskell, but rather to show how the category theory 
informs and guides the implementation. 


1.1 Cayley representation for monoids 

We start by stating the Cayley representation theorem for ordinary monoids, i.e. monoids 
in the category of sets and functions Set. A monoid is a triple (M, ©,e) of a set M, a 
binary operation which is associative ((a ® b) © c = a ® {b © e)), and an 

element e £ M which is a left and right identity with respect to the binary operation (i.e. 
e(Ba = a = a(Be.) Because of the obvious monoid (N, ■, 1), the element e and the binary 
operation © are often called the unit and multiplication of the monoid. 

For every set M we may construct the monoid of endomorphisms (M —> M, o, id), where 
o is function composition and id is the identity function. 

Up to an isomorphism, M is a sub-monoid of a monoid (M r , ©', e') if there is an injection 
i\M^M' such that i(e) = e' and i(a © b) = i(a) ©' i(b) for some © and e. This makes 
(M, ©, e) a monoid and i a monoid morphism. 

Theorem 1.1 (Cayley representation for (Set) monoids) 

Every monoid (M, ©, e) is a sub-monoid of the monoid of endomorphisms on M. 
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Proof We construct an injection rep : M —>■ (M —> M) by currying the binary operation 
rep(m) = Am' ,m®m'. 

The function rep is a monoid morphism: 

rep(e) = Xm'.e®m' 

= id 

rep (a®b) = Xm!. (a® ft) ®m' 

= Xm'.a®(b®m') 

= (Xm.a®m) o [Xn.b ® n) 

= rep (a) o rep(fe) 


Moreover, rep is an injection, since we have a function abs: (M —>• M) —»M given by 
abs(k) =k(e) 


and, abs(rep(m)) = (Xm 1 ,m®m!)e =m®e = m. 


□ 


When M lifts to a group (i.e. it has a compatible inverse operation), then the monoid of 
endomorphisms on M lifts to the traditional Cayley representation of a group M. 


How can we use this theorem in Haskell? Lists are monoids ([a], -H-, [ ]) so we may 
apply Theorem ll.il Let us define a type synonym for the monoid of endomorphisms: 

type EList a = [a] —> [a] 

The functions rep and abs are 

rep :: [a] —> Elista 
rep xv = (xs’+L) 
abs :: Elista -»[a] 
absxs =xs [] 

By the theorem above, we have that abs o rep = id. The type Elist a is no other 
than difference lists! ( |Hughes, 1986[ >. Concatenation for standard lists is slow, as 
it is linear on the first argument. A well known solution is to use a different 
representation of lists: the so-called “difference lists” or “Hughes’ lists”, in which 
lists are represented by endofunctions of lists. In difference lists, concatenation is 
just function composition, and the empty list is the identity function. Hence we can 
perform efficient concatenations on difference lists, and when we are done we can get 
back standard lists by applying the empty list. 


2 Monoidal Categories 

The ordinary notion of monoid in the category Set of sets and functions is too restrictive, so 
we are interested in generalising monoids to other categories. In order to express a monoid 
a category should have a notion of 
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1. a pairing operation for expressing the type of the multiplication, 

2. and a type for expressing the unit. 

In Set (in fact, in any category with finite products), we may define a binary operation 
on X as a function X x X —> X, and the unit as a morphism 1 —y X. However, a given 
category if may not have finite products, or we may be interested in other monoidal 
structure of if, so we will be more general and abstract the product by a 0 operation 
called a tensor, and the unit 1 by an object 7 of if. Categories with a tensor 0 and unit 7 
have the necessary structure for supporting an abstract notion of monoid and are known as 
monoidal categories. 

Definition 2.1 (Monoidal Category ) 

A monoidal category is a tuple (if,0./,a,il,p), consisting of 

• a category if, 

• a bifunctor 0: if x if —> if, 

• an object I of if, 

• natural isomorphisms (Xa,b,c '■ A 0 (B 0 C) —> (A 0 B) 0 C , Xa : I 0 A —> A , and 
Pa : A 0 I —» A such that A/ = p/ and the following diagrams commute. 

A 0 (B 0 (C 0 D)) —^ (A 0 5) 0 (C 0 D) —^ ((A 0 B) 0 C) ® D 
id®aj |a®id 

A 0 ((B 0 C) 0 D)---^ (A 0 (B 0 C)) 0 ZJ 


A0(/®fi)---^ (A 07) 0fl 



A monoidal category is said to be strict when the natural isomorphisms a, X and p are 
identities. Note that in a strict monoidal category the diagrams necessarily commute. 

A symmetric monoidal category, is a monoidal category with an additional natural iso¬ 
morphism ya,b :A0fi->B®A subject to some coherence conditions. 

The idea of currying a function can be generalised to a monoidal category with the 
following notion of exponential. 

Definition 2.2 ( Exponential ) 

Let A be an object of a monoidal category (^,0,7, a, X, p). An exponential — A is the right 
adjoint to — 0 A. That is, the exponential to A is characterised by an isomorphism 

jfaf : 'C(X 0 A. H) SS ^{X,B a ) : [-] 

natural in X and B. We call the counit of the adjunction ev /; = [id^] : B A 0 A —>■ B the 
evaluation morphism of the exponential. When the exponential to A exists, we say that 
A is an exponent. When the exponential exists for every object we say that the monoidal 
category has exponentials or that it is a right-closed monoidal category. 


The next lemmata will be used in the proofs that follow. 
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Lemma 2.3 

Let A,B,C be objects of a monoidal category (if,<gsuch that the exponential 
— A exists. For every /: B ® A —> C, we have 

ev°([/J <8>id)=/ 

Lemma 2.4 

Let A, B, C,D be objects of a monoidal category (if. <g),7, a, A ,p), such that the exponential 
— c exists. For every / :B <g>C —>D and g\A-+B, we have 

L/°C?®id)J = L/W 


2.1 Monoids in Monoidal Categories 

With the definition of monoidal category in place we may define a monoid in such 
category. 


Definition 2.5 ( Monoid) 

A monoid in a monoidal category (if. 0,/. a.X.p) is a tuple (M.m.e) where M g if and 
m and e are morphisms in if 


M 




such that the following diagrams commute. 

(Af ® M) 0M-—-^M®M 



M® {M®M) id0m > M ® ^ 



7®Af-s-M 


A monoid homomorphism is an arrow M\ ——in if such that the diagrams 

Mi -«■-!-Mi ®Mi 

/ /»/ 

Mo -<■-—-M 2 ® M 2 

commute. 

In the same manner that A* (the words on A) is the free monoid on a set A, we can define 
the notion of free monoid in terms of monoidal categories. 

Definition 2.6 (Free Monoid) 

Let be a monoidal category. The free monoid on an object X in if is 

a monoid (^mf/f) together with a morphism ins : X —> F such that for any monoid 
( G,mo,eG ) and any morphism f \ X —> G, there exists a unique monoid homomorphism 
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free / :F -A G that makes the following diagram commute. 




F 



Y 

G 


The morphism ins is called the insertion of generators into the free monoid. 

Monoids in a monoidal category and monoid homomorphisms form the category 
Mon(^). When the left-adjoint (—)* to the forgetful functor U : Mon(if) —> exists, it 
maps an object X to the free monoid on X. There are several conditions that guarantee the 
existence of free monoids flDubuc, 1 974[ |Kelly, 1980| |Lack, 20i0l ). Of particular impor¬ 
tance to us is the following: 

Proposition 2.7 

Let (% J .(S.I ,a,X,p) be a monoidal category with exponentials. If r Xf has binary coprod¬ 
ucts, and for each the initial algebra for the endofunctor I + A ® — exists, then the 

monoid A* exists and its carrier is given by pX. I + A ® X. 

Proof A multiplication on A* has the form m : A* ® A* —1 A*. By definition 12,21 it is 
equivalent to define a morphism A* —> A* , and then use [—] to get m. Exploiting the 
universal property of initial algebras, we define such morphism by providing and algebra 
I+A ® A* a * —>A* a * given b>Q [5 o inro (id <g> ev) o otj] where 8 :1+A ® A* = A* 

is the initial algebra structure over A*. 

The monoid structure on A* is then 


e = Soinl 


m = T(|[|A,i*J, |S°inro (id ® ev) o«||| 


where the banana brackets ) denote the universal morphism from an initial algebra ( [Meijer et ai, 1991 j ). 

The insertion of generators and the universal morphism from the free monoid to the 
monoid ( G,mc,eG ) for /: A —> G are: 


ins = 5 o inro (id <g> e)op 


free / = (| [e G ,m G ° (/ <8> id)]) 


□ 


It is well known that the free monoid over a set A is the set of lists of A. 
Unsurprisingly, when implementing in Haskell the formula of proposition [XT] for the 
case of Set monoids, we obtain lists. 

data List a = Nil | Cons (a, List a) 


For given / : A —>• C and g : B —> C, then [f.g] is the unique morphism A + B —C such that 
[/,g]°inl = /and[/,g]oinr = g. 
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Definition 2.8 ( Sub-monoid ) 

Given a monoid (M, e, m) in if, and a monic i: M' M in if, such that for some (unique) 
maps e' and m!, we have a commuting diagram 

/--- M 


I - 7 — *-M' 

then ( M',e',m ') is a monoid, called the sub-monoid of M induced by the monic i, and i is 
a monoid monomorphism from M' to M. 


— - M®M 

m 

■ M' <g> M' 


2.2 Cayley Representation of a Monoid 
Every exponent in a monoidal category induces a monoid of endomorphisms: 

Definition 2.9 (Monoid of endomorphisms) 

Let (if, <g>,7, a,X,p) be a monoidal category. The monoid of endomorphisms on any expo¬ 
nent A e if is given by the diagram 

I — ^ A a — A a <g> A a 

where 

i A = [I® A — > A J 

c A = l (A a <8>A a ) ® A- - ‘ > A a ® (A a <8> A) ' d ^ A8eVA > a a ^ a ^ A J 

The Cayley representation theorem tell us that every monoid ( M,m,e ) in a monoidal 
category is a sub-monoid of a monoid of endomorphisms whenever M is an exponent. 

Theorem 2.10 ( Cayley ) 

Let ( < rf,®,I,a,X,p) be a monoidal category, and let ( M,e,m ) be a monoid in if. IfM is an 
exponent then ( M,e,m ) is a sub-monoid of the monoid of endomorphisms (M m ,cmJm), 
as witnessed by the monic rep = \in\ : M M m . Moreover, abso rep = \Am where abs is 
given by 

abs = M m — PmM > M m ® I <g> M -—— 

Proof The morphism rep : M - M m is a monoid morphism. 

\m\ o e M 

= { lemma I2AU 

\mo{e M ® id)J 
= { monoid } 

LAjuJ 

= { definition of Im } 
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c M °{\m\ 0 (mj) 

= { definition cm } 

[evo (id w » ® ev) o oT*J o \m\ ® \m\ 

= { lemma [531 } 

[evo (id M A/ 0 ev) o or 1 o ((LmJ ® \m\) ® id M )J 
= { naturality a -1 } 

[ev o (id m m ® ev) o (LmJ ® (LmJ ® id M )) o a” 1 ] 

= { lemma l531 f 
Levo(Lmj®m)oa- 1 j 
= { lemma [53]} 

\m o (id*f ® m) o a _1 J 
= { monoid } 

[m o (m ® id M )J 
= { lemma (Z4l i 

[mjom 

We have abs o rep = idM, and hence rep is monic. 

absorep 

= { definition of abs and rep } 

evo(\d M M ®e M )op M ' M o[m] 

= { naturality of p -1 } 

ev o (id m m ® e u ) o ( [m\ ® id) o p M ! 

= {tensor } 

ev o ((mj 0 idM) ° (idM 0 e M ) ° Pm 1 
= {lemma 1531 1 
mo (idM 0 <?m)°Pm 1 
= { monoid } 

PmoPm 1 

= {isomorphism } 

idM 


□ 

The Cayley theorem for sets ( Theorem ll.ll > is an instance of this theorem for the category 
Set. As new monoidal categories are introduced in the following sections, more instances 
will be presented. 


3 Monads as Monoids 

Consider the (strict) monoidal category End 0 = ([Set,Set],o, Id) of endofunctors, functor 
composition and identity functor. A monoid in this category consists of 

• An endofunctorM, 

• a natural transformation 

• and a unit e : Id —> M; such that the diagrams 
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(MoM)oM -—- ^MoM M 

II J- ;; 

Mo(MoM) Mm > MoM - d 

commute. 

Hence, a monoid in End 0 is none other than a monad. Hence the following often-heard 
slogan: A monad is a monoid in a category of endofunctors. 



The corresponding implementation in Haskell is the following type class: 
class Fu nctor m Tri pie m where 
?7 ::a—¥ma 

join ::m ( ma ) —>ma 

where we have called the type class Triple in order to not clash with standard 
nomenclature which uses the name Monad for the presentation of a monad through 
its Kleisli extension: 

class Monad m where 
return v.a—^ma 
(55=) ::ma-> (a-rmb) -rmb 

The latter has the advantage of not needing a Functor instance and of being easier to 
use when programming. The two presentations are equivalent, as one can be obtained 
from the other by taking tj = return, join = (>5=id), and (5?=/) = join ofmap/. 


3.1 Exponential for Monads 

Finding an exponential in this category means finding a functor (—) F , such that we have 
an isomorphism natural in G and El 

Nat(HoF,G) S* Nat {H,G F ) (3.1) 

A useful technique for finding exponentials such as G 1 ' in a functor category is to turn 
to the famous Yoneda lemma. 

Theorem 3.1 ( Yoneda ) 

Let if be a locally small category. Then, there is an isomorphism 
FX m Nat(Honv(Y,-),F) 

natural in object X : c iS and functor F —> Set. That is, the set FX is naturally isomorphic 
to the set of natural transformations between the functor Hom^ (A\ —) and the functor F. 
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Now, if an exponential G F exists in the strict monoidal category ([Set,Set],o, Id), then 
the following must hold: 

G f X = Nat(Hom(X, —),G F ) 

= Nat(Hom(X, —) °F,G) 

where the first isomorphism is by Yoneda, and the second is by equation [3711 Therefore, 
whenever the expression Nat(Hom(Y, —) oF,G) makes sense, it can be taken to be the 
definition of the exponential G F . Making sense in this case means that the collection of 
natural transformations between Hom(Y,—) oF and G is a set. The collection Nat(/ 7 , G) 
of natural transformation between two Set endofunctors F and G is not always a set, i.e. 
[Set, Set] is not locally small. However, a sufficient condition for Nat(F, G) to be a set is 
for F to be small. Small functors ( |Day & Lack, 2007j ) are endofunctors on Set which are 
a left Kan extension along the inclusion from a small subcategory. Therefore, every small 
functor F is an exponent in Endo, with the exponential (—) F given by 

G f X = Nat(Hom(Y,— )oF,G) 

Remark 3.2 

The functor (—) F is a right adjoint to the functor (-of) and is known as the right Kan 
extension along F. 


The Haskell implementation of the exponential with respect to functor composition 
is the following. 

data Exp /gx = Exp (Vy. (x ->/ y) -y g y) 

The components of isomorphism l3.1l are: 

tp :: Functor h => (Vx. h(fx)—>gx)—>hy—> Exp f gy 
(p ty = Exp (Xk-*t (fmap&y)) 

1 ::(Vy. hy^Expf gy)^h (fx)->gx 

tp~ l tx = let Expg = txingid 


3.2 Free Monads 

By restricting End 0 to finitary functors we obtain the locally small, right-closed monoidal 
category End 0 / ( |Kelly & Power, 1993| ). In this category, we may apply proposition ^, 7l and 
obtain the usual formula for the free monad of an endofunctor F. 

F*X ^ X + F{F*X) 


The formula above can be readily implemented by the datatype: 

data Free c /x= Retx 

| Con (f (Free 0 /x)) 
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with monad instance: 

instance Functor/=> Monad (Free 0 /) where 
return x = Retx 

(Ret*) »=/=/* 

(Con m )=/ = Con (fmap (»=/) m) 

There is no need to check that the instance satisfies the monad laws since the 
definition is derived from Proposition ^. 71 

The insertion of generators and the universal morphism from the free monad are: 

ins:: Functor/ =>/ Free 0 / 
insx = Con (fmap Retx) 

free:: (Functor/, Monad m) => [fom m) —> (Free 0 / -^m) 

free/ (Ret*) = returnx 

free/ (Con i) =f (fmap (free k) t) 

where the o in the type signature of free is functor composition. 


3.3 Cayley Representation of Monads 

For an exponent F, we may apply theorem 12.101 and obtain the monad of endomorphisms 
F f , the monad morphism rep, and the natural transformation abs. The monad F f corre¬ 
sponding to the monoid of endomorphisms on a functor F receives the name of codensity 
monad on F ( [Mac Lane, 197 1| ). 

The codensity monad is implemented by the following datatype, 
type Rep/ = Exp ff 
instance Monad (Rep/) where 
return x = Exp {Xh -*hx) 

(Exp m) »=/ = Exp (Xh->m (Ax —>■ let Exp t =f xi nth)) 

There is no need to check that the instance satisfies the monad laws since the definition 
is derived directly from the general definition of the monoid of endomorphisms. 

The morphisms converting from a monad m to Rep m and back are the following. 

rep:: Monadm^mr-t Rep mx 
rep m = Exp (m»=) 
abs:: Monad m =>■ Rep mx—tmx 
abs (Rep m) = m return 

By Theorem 12.101 we know that abs o rep = id, and that abs is a monad morphism. 
Hence, we may change the representation of monadic computations on m, and perform 
computations on Rep m. This change of representation is exactly the optimisation 
introduced by Voiglander (120081) and shown correct by Hutton et al. (12010 1. 
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Therefore, difference lists and the codensity transformation are both instances of 
the same change of representation: the Cayley representation. 


4 Ends and Coends 

In this section we review the concept of a special type of limit called end , and its dual 
coend. These concepts will be used in the development of the next sections. 

A limit for a functor F : ^ — > St is universal cone to F, where a cone is a natural 
transformation A d F from the functor which is constantly D, for a D £ into the 
functor F. 

When working with functors with mixed variance F : if op X ^ rather than consid¬ 
ering its limit, one is usually interested in its end. And end for a functor F : tf op x ^ @ 

is a universal wedge to F, where a wedge is a dinatural transformation —> F from the 
functor which is constantly D for a D £ into the functor F. 

We make this precise with the following definitions: 

Definition 4.1 

A dinatural transformation a : F —> G between two functors F, G : c fi’ op x —> Si is a 
family of morphisms of the form (Xc : F(C.C) —> G(C,C), one morphism for each C G , 
such that for every morphism / : C —> C' the following diagram commutes. 



F(C',C') G(C',C ') 


An important difference between natural transformations and dinatural transformations 
is that the latter can not be composed in the general case. 

Definition 4.2 

A wedge from an object V 6 to a functor F : ^ op x ^ —> fd is a dinatural transformation 
from the constant functor Ay : i^ op x ^ to F. Explicitly, an object V together with a 

family of morphisms ax '■ V ► F (X, X) such that for each f:C—*C' the following diagram 
commutes. 


F(C,C ) 



F(C',C) 
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In the same way a limit is a final cone, we define an end as a final wedge. 

Definition 4.3 

The end of a functor F : if op x if —> is a final wedge for F. Explicitly, it is an object 

Fef together with a family of morphisms a>c -V —> F{C,C) such that the diagram 


F{C,C ) 



F(C',C ') 


commutes for each / : C — > C', and such that for every wedge from V' e 3 , given by 
a family of morphisms y e : V' —> F(C,C ) such that F(id,/) o y c = F(/, id) o ]/ for every 
f :C —>C, there exists a unique morphism ! : V' —> V such that the following diagram 
commutes. 


F(C,C ) 



F(C',C') 


The object V is usually denoted by J a F(A,A) and referred to as “the end of F”. 

One nice feature of ends is that it leads to a natural implementation of categorical 
concepts in Haskell by replacing the end by a universal quantifier. For example, the 
natural transformations between two functors F and G can be expressed as an end 

J FX —1 GX 

(where by X —> Y we note the exponential on Set) and implemented as follows, 
type/ g = Vx. f x g x 


Ends can be seen as a generalised product, but cut down by a relation of dinaturality. 
Following this view, a morphism to an end is defined by a dinatural family of morphisms: 

(4>):Y^f A F(A,A) 

<j>x : Y F{X,X), dinatural inX 


Proposition 4.4 

By the universal property of ends, ((j)) is the unique morphism such that (Ox o ((f)) = (j>x. 
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Given a dinatural transformation a : Ay —f F, and a morphism h:Z —>Y, the family of 
morphisms defined by (a o h)c = otc o h is dinatural in C. Using the universal property of 
ends, we obtain the following proposition: 

Proposition 4.5 

Let fa ■ Y —> F(X,X) be a family of morphisms dinatural in X, and a let h : Z — > Y. Then 
(0° h) = (fa oh. 

When defining a family of morphisms, abstracting over the varying object comes in 
handy. We will use A as a binder for objects variables. For example, (a o h)c = otc°h can 
be defined directly as a o h = AC. otc°h, 

There are dual notions of wedges and ends, namely cowedges and coends. We briefly 
summarise their definitions. 

Definition 4.6 

A cowedge from F is an object V together with a dinatural transformation a : F —y Ay. 
Definition 4 .7 

A coend is an initial cowedge. Explicitly, a coend of F is an object V together with a family 
of morphisms lc : F(C,C) —> V such that lx ° F(f. id) = ly o F(id./), which is universal 
with respect to this property: for every object V' and family of morphisms yc: F(C,C) —> V 7 
such that yx °F(f, id) = yy oF(id,/), then there exists a unique morphism f:V—>V' such 
that yx =fol x . 

A coend can be seen as a generalised coproduct, quotiented by an equivalence relation. 
If fa : F(X,X) —» Y is a family of morphisms dinatural in X, then the morphism from 
J a F(A,A ) to Y given by the universal property of coends is denoted as [<p]: 


[fa:J A F(A,A)^Y 


fa : F(X,X) -> Y, dinatural in X 


In the same way an end can be implemented as a universal quantifier, a coend can 
be implemented as an existential quantifier, as supported by modern implementations 
of Haskell. 


We finish this section by presenting the Yoneda lemma in the language of ends and 
coends. Focusing on functors if op x ^ —> Set, with e iS a small category, we can form the 
set of dinatural transformations between two such functors. The fact that such dinatural 
transformations form a set is justified by the next proposition. 

Proposition 4.8 

Let F, G : ( C' op x ^ —> Set, with a small category. Dinatural transformations from F to 
G are in a one-to-one correspondence with global elements of f A F(A,A) —>■ G(A,A). If we 
denote the dinatural transformations between F and G by Dinat(F, G), we obtain: 
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In particular, when F and G are functors in one covariant variable (i.e. dummy in their 
contravariant variable), Dinat(F, G) reduces to Nat(F, G) and we have 

Nat(F,G) S Jf(A)^G(A) 

The Yoneda lemma in its end and coend form flAsada & Hasuo, 2010| |Asada, 2010| ) is 
usually expressed as: 

FX 2S J Hom^(X,Y)-yFY S J Y FY x Hom<g{Y,X) 


We can interpret the end form of Yoneda lemma as an isomorphism between types 
/ x and Vy. (x —> y) —yf y whenever/ is a Functor. 

The components of the isomorphism are implemented as 

9 :: Functor/ =yf x -y (Vy. (x —y y) —yf y) 

q>v = Xf -y fmap/ v 

(p- 1 :: (Vy. (r-ly) -t/y) -+fx 

(P~ l g = g id 

Similarly, its coend form (also known as “coYoneda lemma”) is expressed by 

9 :: Functor/ =>fx-y (3y. ify,y^x)) 

¥ v = (v, id) 

V 1 :: Functor/(3y. (f y,y —yx)) —yf x 
V” 1 (x,g) = fmapgx 


5 Applicatives as Monoids 

Similarly to monads, applicative functors ( [McBride & Paterson, 2008| ) are a class of func¬ 
tors used to write certain effectful computations. These functors come with an operation 
that allows evaluation of functions inside the functor. Compared to monads, applicative 
functors are a strictly weaker notion: every monad is an applicative functor (see Sec¬ 
tion 18.31) . but there are applicative functors which are not monads. The main difference 
between monads and applicative functors is that the latter does not allow effects to depend 
on previous values, i.e. they are fixed beforehand. 


In Haskell, these functors are represented by the following type class: 

class Functor/ =y Applicative/ where 
pure::a —yf a 

(®) ::f(a^-b)^yfa^fb 


Since their introduction, applicative functors have been characterised categorically as 
strong lax monoidal functors ( |McBride & Paterson, 2008[ l. We explain the notions of strong 
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functor and lax monoidal functor separately. In simple words, a lax monoidal functor is 
functor preserving the monoidal structure of the categories involved. 


Definition 5.1 

A lax monoidal functor F : —> fd is a functor between the underlying categories of 
two monoidal categories 0£^,A^,p^) and (1^,©,/,(%,A®,p^) together with a 

natural transformation 


and a morphism 


\I)a,b:F(A)(BF(B)^F(A®B ) 
r] :J —> F(I) 


such that the following diagrams commute. 


FA © [FB Q 
1 

>FC) ssr M ® F(i, ® c) 

- ->■ F(A <g 

tA,(B®C) 

>(7?®C)) 

1 

(FA © FB) < 

[: FC ' r(A o B) I'C 

^i-FIIA < 

1 F0V 

8>B)®C) 


-F(A®7) 


- FI © FA 

-F(7®A) 


Fp v Fp% 

A monoidal functor is a lax monoidal functor in which p and rj are isomorphisms. 


Definition 5.2 

An endofunctor F : *€ —>■ *€ is strong when it comes equipped with a natural transformation 
stA,B : A ® FB -» F(A ® B ) 

called a strength such that following diagrams commute. 


1 ® F(A) A ® (B ® FC) A <g> F(B <g> C) —^ F(A ® (B ® C)) 



F(1 <g> A) F(A) (A®5)®FC---^F((A®5)®C) 

All endofunctors on the (cartesian) monoidal category Set come with a unique strength, 
so all functors in [Set, Set] are strong. Now, a strong lax monoidal functor is simply a 
lax monoidal functor which is also a strong functor and in which the strength interacts 
coherently with the monoidal structure. In our setting of Set endofunctors we get this 
coherence for free. 


The categorical characterisation of applicative functors as strong lax monoidal 
functors gives rise to an alternative (but equivalent) implementation of applicative 
functors: 
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class Functor/=> Monoidal/ where 


unit::/ () 

(*) ::/a —>•/b —>/ (a,b) 


We saw how monads are monoids in a particular monoidal category. Applicative functors 
can be shown to be monoids too. Interestingly, they are monoids in the same category as 
monads: An applicative functor is a monoid in a category of endofunctors. However, it is 
not the same monoidal category, as this time we must consider a different notion of tensor. 
For monads we used composition; for applicative functors we use a tensor called Day 
convolution ( |Day, 1970 | ). Given a cartesian closed category two functors F, G: *€ —> 
and an object B in c €, the Day convolution (F * G)B is a new object in %' defined as: 



The coend does not necessarily exist for arbitrary Set endofunctors, but it is guaranteed 
to exist for small functors ( |Day & Lack, 2007] ). Unless otherwise stated, in the remainder 
of the section we will work with [Set, Set]? the category of small Set endofunctors. 

Applying theorem IX.7.1 of Mac Lane (119711) . it can be shown that F *G is not only a 
mapping between objects, but also a mapping between morphisms, and that it respects the 
functor laws. Furthermore, given natural transformations a:F —i G and j3 : H — v I, we can 
form a natural transformation oc * /3 : F *H — >G*I. This makes the Day convolution a 
bifunctor - * —: [Set, Set],? x [Set, Set]? —J [Set, Set]?. 


The coend in the definition of the Day convolution can be implemented by an 
existential datatype. In the definition below, done in GADT style, the type variables c 
and d are existentially quantified. 

data (f*g)b where 

Day ::fc^rgd^((c,d)^b)^(f*g)b 
instance (Functor/, Functor g) => Functor (f *g) where 
frnap/ (Day xyg) = Day xy (fog ) 

The Day convolution is a bifunctor with the following mapping of morphisms: 

bimap ::(f h) ->■ (g i) ->■ (f*g h*i) 
bimap mi m 2 (Day xyf) = Day (mi x) (m2y)f 


The following proposition allows us to write morphisms from the image of the Day 
convolution to another object. 

Proposition 5.3 

There is a one-to-one correspondence defining morphisms going out of a Day convolution 


[ t g, e tf\(F*G,H) 


[/x/,/](xo(FxG),l/ox) 


(5.1) 
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which is natural in F, G, and H. Here, x : ^ x Z 5 —> is the functor which takes an object 

(. A,B ) of the product category into a product of objects AxB. 

Remark 5.4 (Day convolution as a left Kan extension ) 

In view of the last proposition, the Day convolution F * G is the left Kan extension of 
xo(FxG) along x. 


The proposition above shows an equivalence between the types (f ★ g) -A h and 
Vab. (f a,gb) ->h(a,b). 

i):: (f * g -$■ h) -> (f a,g b)—>h (a,b) 

$f(x,y) =/( Dayxyid) 

$ _1 :: Functor h =>■ (Va b. (f a,g b) -A h ( a,b )) -A (f *g -^h) 
tf” 1 g (Day xyf) = fmap/ (g (x,y)) 


In contrast to the composition tensor, the Day convolution is not strict. Moreover, the 
Day convolution is symmetric, which together with appropriate natural transformations a, 

A and p make End* = ([Set,Set]s,*, Id,a, A.p,y) a symmetric monoidal category ( |Day, 1970| . 


Here we present the natural transformations of the monoidal category End*. In order 
to do that we first implement the identity functor. 

data Id a = Id a deriving Functor 

A :: Functor/ =>/ Id */ 

Xx = Day (Id ())xsnd 
p :: Functor f =$-f Id 

p x = Day x (Id ()) fst 
a::(f*g)*h-^f*(g*h) 
a (Day (Day xyf) zg) = Dayx (Dayy zfi)fi 
where f = A {d,b) -f ((Ac ->/ ( c,d)),b ) 
h = A(c, (h,b)) -+g(hc,b) 

7:: (f*g) ^ (g */) 
y (Dayxy/) = Dayyx (foswap) 
where swap (x,y) = (y,x) 

We leave the definition of the inverses as an exercise. 


Remark 5.5 (Alternative presentations of the Day convolution ) 

In our setting of Set functors, the Day convolution has different alternative representations: 



5.1 Monoids in End, 


A monoid in End* amounts to: 
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• An endofunctor F, 

• a natural transformation m :F * F -4 F, 

• and a unit e : Id —4 F; such that the following diagrams commute. 


(F*F)*F- — -s-F*F F*F ^ F * e F* Id 



From the unit e, one can consider the component ej \ 1—1 FI. This component defines a 
mapping which can be used as the unit morphism for a lax monoidal functor. Similarly, 
using equation [5. 1 1 the morphism m : F * F —4 F is equivalent to a family of morphisms 

■&(m) A ,B : FA x FB —4 F(A x B) 

which is natural in A and B. This family of morphisms corresponds to the multiplicative 
transformation in a lax monoidal functor. Putting together F, $(m) and e/, we obtain a 
strong lax monoidal functor on Set, that is, an applicative functor. 

It remains to be seen if the converse is true: can a monoid in End* be defined from an 
applicative functor? Given an applicative functor (F, </>, 77), it easy to see that a multiplica¬ 
tion for the monoid can be given from (f>, using eauation [5. 1 l again. What has to be seen it is 
if one can recover the whole natural transformation e : Id —4 F out of only one component 
7] : 1 -4 FI. We do so by using the strength of F (which exists since it is an endofunctor 
on Set): the following composition 

A - ^Axl - ' dX?? > AxFl -——^ F(A x 1) —— - ^ FA 

defines a morphism e A : A —4 FA for each A. 

All told, applicative functors are monoids in the category of endofunctors which is 
monoidal with respect to the Day convolution. 


5.2 Exponential for Applicatives 

To apply the Cayley representation, first it must be determined if the category End* is 
monoidal closed. To do so, we use the same technique we used in section lBJl for finding the 
exponential of monads: we apply Yoneda and then the universal property of exponentials. 

G F (5)^IMat(Hom(F,-),G F ) 
m Nat(Hom(B,-) *F,G) 

Therefore, whenever the last expression makes sense, it can be used as the definition of the 
exponential object. Since we are working on a category of small functors, the expression 
always makes sense and the exponential is always guaranteed to exist. Doing some further 
algebra, an alternative form for G F can be derived ( |Day, 1973) : 


G f (B) = Nat(F,G(5 x —)) 
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Using Haskell, this exponential can be represented as: 
data Exp f gb = Exp (Va.fa —y g ( b,a )) 

The components of the isomorphism showing it is an exponential are: 

9:: {f*g-^h) - 4 / Exp gh 

tp mx= Exp (Ay -4 m (Day xy id)) 

tp - 1 :: Functor h =$- (f Exp gh) ->f*g h 

(p~ l f (Day xyh) = fmap h ( ty ) 

where Exp t =fx 


We therefore conclude that End* is a symmetric monoidal closed category. 

5.3 Free Applicatives 

By Proposition 12,71 the free monoid, viz. the free applicative functor, exists. 


The direct application of proposition l2.7l vields the following implementation of the 
free applicative functor. 

data Free*/ a = Pure a | Rec ((/'★Free*/) a) 

Inlining the definition of ★, we obtain the simplified datatype 

data Free*/ a where 
Pure:: a ->• Free */a 

Rec ::/c-F Fr ee*fd-> (( c,d) -ya)-t Free*/ a 
with the following instances: 

instance Functor/ =*> Functor (Free*/) where 
fmap g (Pure x) =Pure(gx) 
fmap g (Recxyf) = Recxy (go/) 
instance Functor/ Applicative (Free*/) where 
pure = Pure 

Pureg ®z= fmap gz 

(Rec xyf) ®z = Rec x (pure (,)®y®z) ( X(c,(d,a )) -yf ( c,d ) a) 

There is no need to check that the instance satisfies the applicative laws since the 
definition is derived from Proposition [2)7] 

The implementation of the insertion of generators and the universal morphism from 
the free applicative is: 

ins:: Functor a => a Free* a 
insx= Rec x (Pure ()) fst 

free:: (Functor a, Applicative b) =$■ (a b) —l (Free* a-^yb) 
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free/ (Pure x) = pure x 

free/ (Recxyg) = pure (curry g) ®fx® free/ y 

Alternative presentations of the Day convolution produce alternative types for the 
free applicative. Using the two alternative expressions for the Day convolution given 
in equation [5.21 we obtain two alternative definitions of the free applicative functor: 

data Free*/a where 
Pure' ::a —> Free*/ a 
Rec' ::fb -A Free*/ (b -A a) -A Free*/ a 
data Free*/ a where 
Pure"::a —> Free*/a 
Rec" ::/ (b -A a) —> Free"/—> Free"/a 

Hence, the two alternative presentations of the Day convolution given in 
equation [5]2] give rise to the two notions of free applicative functor found by Capriotti 
and Kaposi (I2014t . 


5.4 Cayley Representation for Applicatives 

Having found the exponential for applicatives, we may apply theorem 12.101 and construct 
the corresponding Cayley representation. 


The Cayley representation is the exponential of a functor over itself, 
type Rep/ = Exp// 

instance Functor/=> Functor (Rep/) where 

fmap/ (Exp h) = Exp (fmap (A(x,y) -A (fx,y))oh) 
instance Functor/=> Applicative (Rep/) where 
pure c = Exp (fmap (c,)) 

Exp/© Exp a = Exp (fmapgoao/) 
where g (x, (f,c)) = (fx,c ) 

Again, there is no need to check compliance with applicative laws because the 
instance is derived from the general construction of the monoid of endomorphism. 

Finally, from theorem l2.10l we obtain the applicative morphism rep and the natural 
transformation abs, together with the property that abso rep = id. 

rep:: Applicative/ =>/ -A Rep/ 
repx= Exp (Ay->- pure (,)®x®y) 
abs:: Applicative/^ Repf -Af 
abs (Exp t ) = fmap fst (t (pure ())) 
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6 Pre-Arrows as Monoids 


Having successfully applied the Cayley representation to monads and applicatives, we 
wonder if we can find a representation for a third popular notion of computation: arrows. 
Arrows ( |Hughes, 2000)1 were already studied as monoids ^Jacobs et al., 2009] ), resulting in 
a monoid in the category of profunctors. We briefly review these results. 

A profunctor from if to ff is a functor x if —> Set, sometimes written as if —|-t fif. 

In a sense, functors are to functions what profunctors are to relations. A morphism between 
two profunctors is a natural transformation between their underlying functors. 


We indicate that a type constructor h::* — »■ * is a profunctor by providing an 
instance of the following type class. 

class Profunctor h where 

dimap:: {d' —l d) —> (c —l c') —l hdc —>■ hd! c' 

such that the following laws hold 


dimap id id = id 

dimap (fog ) (hoi) = dimapg/zodimap/r 


Notice how, as opposed to a bifunctor, the type constructor is contravariant on its first 
argument. 


Definition 6.1 

The category of profunctors from if to ff, denoted Prof (if. If), has as objects profunctors 
from if to If, and as morphisms natural transformation between functors ff op x if — > Set. 

From now on, we will focus on profunctors if — |-> if, where if is a small cartesian 
closed subcategory of Set with inclusion /: if —»Set. To avoid notational clutter, we omit 
the functor J when considering elements of if as elements of Set. 

Profunctors can be composed in such a way that give a notion of tensor ( |Benabou, 1 973| i. 
Given two profunctors F, G : if —H if, their composition is 



The tensor is implemented in Haskell as follows: 


data (<8>)fgab = Vz. (faz)®(gzb) 


instance (Profunctor/, Profunctor g) => Profunctor (f®g) where 
dimap mi m2 (f<8>g ) = (dimap mi id/) (g> (dimap id m2 g) 


The functor Horn : if op x if —> Set is small and it is the unit for the composition: 
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where the isomorphism holds by the Yoneda lemma. This calculation is used to define a 
natural isomorphism p :F ® Horn = F. Likewise, natural isomorphisms A : Horn ® F = F 
and a : (F ® G) ® H = F ® (G ® #) can be defined. 


We represent morphisms between profunctors as 
type f g = Vab.f ab gab 
The implementation of A, p, and a are as follows: 
type Horn = (—>) 

A :: Profunctor/ => Horn <g>/ -=4/ 

A (f ®x) = dimap/ id x 
p:: Profunctor/ =^/® Horn -=►/ 
p (x®/) = dimap id/x 
a::(f®g)®h^>f®(g®h) 
a ((f®g)®h) =f®{g®h) 


Thus, a monoidal structure can be given for [ < rf op x if. Set], with composition <8> as its 
tensor, and Horn as its unit. We denote this monoidal category by Pro. 

Which are the monoids in this monoidal category? A monoid in Pro amounts to: 


• A profunctor A, 

• a natural transformation m : A 0 A —> A, 

• and a unit e : Horn —1 A; such that the diagrams 


(A®A) ®A 


■ A ® A 


A® (A®A) — > A®F--—s-A 



commute. 


Using the isomorphism 

^ J Z a(x,z) xA(z,y)j -iA(x,y) a Ja(x,z) xA(z,y) ->a(x,y) 

we get that a natural transformation rn : A ® A —> A is equivalent to a family of morphisms 
mx,Y,z ■ A(X,Z) xA(Z,F)^A(X,F) which is natural in X and F and dinatural in Z. 

This presentation makes the connection with arrows evident: m corresponds to the op¬ 
erator (^>) and e corresponds to arr. Unfortunately, the first operation is missing. We 
postpone this problem until the next section, and in the remainder of this section focus on 
monoids in Pro, i.e. arrows without a first operation, which we call pre-arrows. 
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We introduce a class to represent the monoids in this category. It is simply 
restriction of the Arrow class, omitting the first operation. 

class Profunctor a => PreArrow a where 
arr :: (bc)ab c 
(^>) ::abc—>acd—>abd 


The laws that must hold are 


(a b) c = a (b c) 

arr f ^>a = dimap/ id a 
a arr / = dimap id fa 

arr (g °f) = arr/ arr g 


6.1 Exponential for Pre-Arrows 

The exponential in Pro exists flBenabou, 1973) and a simple calculation using the Yoneda 
Lemma shows it to be 

B a (X,Y) = Nat(A(y,-),fl(X,-)). 


The implementation of exponentials in Pro follows the definition above: 
data Exp abxy= Exp (\/d. ayd-^bxd) 

instance (Profunctor g, Profunctor h.) Profunctor (Exp g h ) where 
dimap mi m2 (Exp gh) = Exp (dimap m\ id ogho dimap m2 id) 

The components of the isomorphism which shows that Exp is an exponential are: 

<p ::(f<®g ^ h)-A (f^ Exp gh) 

(p mf = Exp (Xg->m (f®g)) 

(p~ l ::(f ^ Expgh)^(f®g^h) 

(p- 1 m (f®g) = e g where Exp e = mf 


6.2 Free Pre-Arrows 

By Proposition ^. 71 the free monoid, viz. the free pre-arrow, exists. 


The direct application of Proposition l2.7l vields the following implementation of the 
free pre-arrow. 

data Free® a x y where 

Horn :: (x —ly) —> Free® axy 
Comp:: axp—> Free®apy —>• Free® axy 
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with the following instances: 

instance Profunctor a => Profunctor (Free® a) where 
dimap/ g (Horn h) = Horn (go hof) 
dimap f g (Compxy) = Comp (dimap/ idx) (dimap id gy) 
instance Profunctor a => PreArrow (Free® a) where 
arr / = Horn/ 

(Horn/) ^>c = dimap/ id c 

(Comp xy);g>c = Compx (y c) 

There is no need to check that the instance satisfies the pre-arrow laws since the 
definition is derived from Proposition ^. 71 

The insertion of generators and the universal morphism from the free pre-arrow are: 

ins:: Profunctor a =>■ a Free® a 
insx = Compx (arr id) 

free:: (Profunctor a, PreArrow b) =>■ {a b) —> (Free® a^b) 

free/ (Horn g) = arr g 

free/ (Compxy) =fx fr eefy 


6.3 Cayley Representation of Pre-Arrows 

Having found the exponential for pre-arrows, we may apply theorem 12.101 and construct 
the corresponding Cayley representation. 


The Cayley representation is the exponential of a profunctor over itself, 
type Rep a = Exp a a 

instance Profunctor a =>■ PreArrow (Rep a) where 
arr/ = Exp (Ay -»• dimap/ id y) 

(Exp/) (Exp g) = Exp (Ay —¥f {g y)) 

Again, there is no need to check compliance with pre-arrow laws because the 
instance is derived from the general construction of the monoid of endomorphism. 

Finally, from theorem 12.101 we obtain the pre-arrow morphism rep and the natural 
transformation abs, together with the property that abso rep = id. 

rep:: PreArrow a =>■ a Rep a 
rep x = Exp (Ay -+x^>y) 
abs:: PreArrow a => Rep a^a 
abs (Exp/) =/ (arr id) 
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7 Arrows as Monoids 

Returning to the problem of arrows as monoids, we need to internalise the first operation 
in the categorical presentation. Jacobs et al. ( 12009b solve this problem by adjoining an 
ist operator to monoids in Pro: an arrow is a monoid (A,m,e) together with a family of 
morphisms ist :A{X,Y) —$-A(X,Y x X). We take an alternative path. We work on a category 
of strong profunctors (profunctors with a first-like operator), and then consider monoids in 
this new monoidal category. 

Definition 7.1 

A strength for a profunctor F : f Z op xAiS —f Set is a family of morphisms 
stx, y,z -F(X,Y) ->F(X xZ,Y xZ) 

that is natural in X, Y and dinatural in Z, such that the following diagrams commute. 
F(X,Y) 

“'I 

F{X x 1,7 x 1)->F(Xx 1,7) 

v ' imm) v ’ 

F(X,Y) -—- ^F{XxV,YxV) 



F(Xx(VxW),Y x(V xW)) - ^ F((X xV) xW,(Y xV) xW) 

F(a,a~ l ) 

We say that a pair (F, st) is a strong profunctor. The diagrams that must commute here 
are similar to those for a tensorial strength. 



The type class of strong profunctors is a simple extension of Profunctor. 

class Profunctor p => StrongProfunctor p where 
first ::p xy -A p (x,z) ( y,z ) 

Instances of the StrongProfunctor class are subject to the following laws, 
dimap id 7ti (first a) = dimap tti id a 

first (first a) = dimap a a~ l (first a) 
dimap (id X/) id (first a) = dimap id (id X/) (first a) 

The first two laws correspond to the two diagrams above, while the third one 
corresponds to dinaturality of first in the z variable. 


In contrast to strong functors on Set, the strength of a profunctor may not exist, and even 
if it exists, it may not be unique. 
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As an example of strengths not being unique, consider the following profunctor: 
data Doublexy = Double ((x,x) — l (y,y)) 
instance Profunctor Double where 

dimap/ g (Double h) = Double (lift go ho lift/) 
where lift:: (a-tb)-> (a,a) —> ( b,b ) 
lift/ (a,a') = {fa,fa') 

there exist two possible instances satisfying the strength axioms. 

instance StrongProfunctor Double where 
first (Double/) = Double g 

where g (foz/fofo)) = (foz), (y'fo)) 

where (y,y') =/ {x,x!) 

instance StrongProfunctor Double where 
first (Double/) = Double g 

where g (foz)jfofo)) = {(y,z), (y',z)) 

where (y,y') =/ fox') 

Therefore, the profunctor Double does not have a unique strength. 


Given two strong profunctors (F. st 7 ’), (G, st G ), a strong natural transformation is 
natural transformation a :F —>G that is compatible with the strengths: 


F(X,Y) 

st 

— F(X x Z,Y x Z) 

“1 


1 “ 

G(X,Y) 

St G 

-+G(XxZ,YxZ) 


Following the approach to strong monads of Moggi Jl995t , we work with the category 
fo op x c /f. Set] str of strong profunctors. 

Definition 7.2 

The category fo op x . Set] str consists of pairs (F, st) as objects, where F is a profunctor 
and st is a strength for it, and strong natural transformations as morphisms. 

Even when the strength for a functor is not unique, we usually write (F. st F ). Here the 
superscript F in st F is just syntax to distinguish between various strengths for different 
profunctors, but it does not mean that st F is the strength for F. 

The monoidal structure of Pro can be used for strong profunctors. Given two strong 
profunctors (A. st'') and (5,st B ), a family of morphisms = [AP.if> o (st£ x stf)] is 
defined. It is easy to see that such family is indeed a strength for the profunctor A B. The 
monoidal category of strong profunctors with tensor defined this way is denoted by SPro. 

A monoid in SPro amounts to the same data that we had in the case of Pro. This time, 
however, the morphisms m and e (being morphisms of SPro) must be compatible with the 
strength as well. 
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Arrows can be implemented as strong profunctors which are pre-arrows, 
class (StrongProfunctor a, PreArrow a) => Arrow a 

Instances of Arrow are empty, but the programmer should check the compatibility 
of the unit and multiplication of the pre-arrow with the strength: 

first (arr/) = arr (f x id) 
first (a b) = first a first b 

These two laws, together with the laws for profunctors, pre-arrows and strength, 
constitute the arrows laws proposed by Paterson (12003b . 


7 .1 Exponential for Arrows 

Unfortunately, we have not managed to find an exponential for arrows. Part of the difficulty 
in finding one seems to stem from the fact that strengths for profunctors may not exist, and 
even if they do, they may not be unique. For example, given two strong profunctors A and 
B, the profunctor B A defined in Section IQ1 does not seem to have a strength. 

However, as shown next, it is possible to co-freely add a strength to a pre-arrow, and use 
that to obtain a representation for arrows. 


7.2 Adding a Strength to Pre-Arrows 

We mitigate the failure to find an exponential in SPro by building on the success in Pro. 
Concretely, we investigate how to add a strength to profunctors in Pro, and use this to 
complete the constructions in Pro to make them work in SPro. 

There is an obvious monoidal functor from the monoidal category of strong profunctors 
SPro into the monoidal category of profunctors Pro that forgets the additional structure. 
More precisely, the functor U : SPro —> Pro forgets the strength. 

U (AjSf 4 ) = A 

Interestingly, this functor has a right adjoint. That is, there is a functor T such that we 
have a natural isomorphism. 

(j ): Pro(t/(A,sf 4 ),B) S SPro((A,sf 4 ),7’fi) (7.1) 

The monoidal functor T : Pro -4 SPro is given by TB = (7} ; .st), with its components 
defined by 

T b (X,Y) = J B{XxZ,Y xZ) 

st z = {AV.B(a,a _1 ) o eqzxv) 

The adjunction U H T tells us that T completes a profunctors by (co)freely adding a 
strength. Pastro and Street, when working on Tambara modules flPastro & Street, 2008) , 
introduced an endofunctor on the category of profunctors which adds a structure similar to 
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what we call a strength. The functor T is based on that endofunctor and hence we call it 
the Tambara functor. 


The Tambara functor may be implemented as follows, 
data Tambara axy = Tambara (Vz. a (jc,z) (y,z)) 
instance Profunctor a => Profunctor (Tambara a) where 
dimap f g (Tambara x) = Tambara (dimap (lift/) (lift#)*) 
where lift f (a,b) = (f a,b) 

instance Profunctor a => StrongProfunctor (Tambara a) where 
first (Tambara x) = Tambara (dimap a a -1 x) 

where a ((jc,y),z) = (*,(y,z)) 
a-'(x,(y,z)) = ((x,y),z) 


The isomorphism [7j] is witnessed by morphisms: 

( < H T 7)(A,st' 4 ),.B) xy = (AZ.tjxxZ.rxz ° st^) 
y = B(xr\m) otoio p XJ 

The components of the isomorphism l7.1l are implemented in Haskell as follows. 

0 :: (StrongProfunctor a, Profunctor b) => (a b) —4 (a Tambara b ) 

<l>f a = Tambara (f (first a)) 

(j) -1 :: (StrongProfunctor a, Profunctor b) =► (a Tambara b) — 4 (a b ) 

(j)~ l fa = dimap fst -1 fstb 
where Tambara b =f a 

fst- 1 x=(x,0) 


Since we have an adjunction U H T, we can form a comonad UT : Pro —4 Pro. The 
counit of UT is the counit of the adjunction: e = (j> 1 (id : 4—>/!) =/t(7T| 1 , 7T|) o C0[, and 
its comultiplication is 5 = U${ id : UTA -4 UTA)T = (AZ. {AV.A(a. a "') o a ) Z xv». 

Proposition 7.3 

The category SPro is equivalent to the (co)Eilenberg-Moore category for the comonad UT. 

Proof A coalgebra for this comonad is an object A from Pro together with a morphism 
<7 : A —4 UTA such that these diagrams commute: 



UTA 


UTA 


UT[UTA) 
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The morphism (7 is a family of morphisms 

o x ,y -A(X,Y) -4 A(X xZ,Y xZ) 

natural in X and Y. By the universal property of ends, the family Ox.y is equivalent to a 
family of morphisms 

6x,y,z -A(X,Y) —>A(X xZ,Y xZ) 

natural in X and Y, and dinatural in Z. Such family has exactly the form of a strength. Using 
the laws for coalgebras of a comonad, one can prove that a is indeed a strength for A. □ 


7.3 A Representation of Arrows 

Although we have not found the form of exponential objects in SPro, an alternative repre¬ 
sentation for monoids can be given with help of the Tambara functor. 

The idea is to take a monoid in SPro and forget the strength structure using U. Then, 
use the Cayley representation for monoids in Pro, and finally apply the Tambara functor 
to obtain a new strength on this monoid. That is, given a monoid ( M,m,e ) in SPro, 
its representation is T(JJM um ). The functor T is monoidal and therefore, as shown by 
Theorem l8.ll it takes monoids in Pro to monoids in SPro. 

More concretely, given a monoid ((A,st A ),m,e) in SPro (i.e. and arrow), we construct a 
morphism rep : (A , st 4 ) -4 TA a as 

re P x,y = (AZ.(AD. \m oi YxZ o (st^ x id)J)) 

This is a legit morphism in SPro, i.e. it commutes with the strengths of A and TA a . It has 
a left inverse, abs : UTA a ->U(A, sf 4 ) defined as 

absx,y = A(tti 1 , id) oevo (id x e) o (id, \ n\ o%j°!) o oiy o aij 
and therefore, rep is a monomorphism. This proves that TA a is a representation for (A, sf 4 ). 

The representation is implemented in Haskell as follows, 
data Repaxy = Rep (Vz'z. a (y,z')z^a (x,z') z) 
instance Profunctor a => Profunctor (Rep a) where 

dimap f g (Repx) = Rep (Ay -4- dimap (lift/) id (x (dimap (liftg) id y))) 
where lift/ {<a,b ) = (f a,b) 

The representation takes any profunctor into an arrow. 

instance Profunctor a => PreArrow (Rep a) where 
arr/ = Rep (dimap (lift/) id) where lift/ ( a,b) = (f a,b) 

Rep x Rep y = Rep (Av -4- x (y v)) 
instance Profunctor a => StrongProfunctor (Rep a) where 
first (Repx) = Rep (Az -4 dimap a id (x (dimap a -1 id z))) 
where a ((x,y),z) = (*,(y,z)) 
a- 1 (x,(y,z)) = ((x,y),z) 
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Since we verified that the strength is compatible with the pre-arrow structure, we 
may declare the Arrow instance. 

instance Profunctor a =>■ Arrow (Rep a) 

Any arrow a can be represented by Rep a. Moreover, abso rep = id. 

rep:: Arrow a =>axy—> Rep axy 
rep x = Rep (Az —> first x z) 
abs:: Arrow a => Rep axy ^ axy 
abs (Repx) = arr fst -1 ~^>x (arr fst) 
where fst -1 y = (y, ()) 


7.4 Free Arrows 

Having failed to find an exponential in SPro, we cannot apply Proposition l2.7l to obtain the 
free monoid in SPro and therefore we fall back to finding it directly. Fortunately, we do 
not need to search much as the free monoid on Pro is equipped with an obvious strength 
whenever it is built over a strong profunctor, and indeed one can verify that the obtained 
monoid is the free monoid in SPro. 


The free pre-arrow can be equipped with a strength when defined over a strong 
profunctor. 

instance StrongProfunctor a => StrongProfunctor (Free® a) where 
first (Horn/) = Horn (A(*,z) —¥ (f x,z)) 
first (Comply) = Comp (first*) (firsty) 

Since the unit and multiplication of the free arrow are compatible with the strength, 
we can declare the Arrow instance without guilt. 

instance StrongProfunctor a => Arrow (Free® a) 

The insertion of generators and the universal morphism are the same as the ones from 
pre-arrows. The only difference is that now we require StrongProfunctors instead of 
plain Profunctors. 

ins:: StrongProfunctor a => a Free® a 
insx= Comp* (arr id) 

free:: (StrongProfunctor a, Arrow b) =>■ (a -=>• b) -A (Free® a b) 

free/ (Horn g) = arr g 

free/ (Comply) =fx free/y 

Here, we would really like the type (a b) to represent strength preserving 
morphisms between strong profunctors. Therefore, free/ will preserve the strength 
only when/ does. 




ZU064-05-FPR 


19 June 2014 0:23 


Notions of Computation as Monoids 


33 


Remark 7.4 

We now have adjunctions 



Pro jL SPro _L Mon(SPro). 



However, they do not compose. Free arrows are generated freely from SPro but the strength 
is generated co-freely from Pro. This provides an explanation for the difficulty in defining 
a free arrow over an arbitrary (weak) profunctor. 


8 On Functors Between Monoidal Categories 

Monads, apphcatives and arrows have been introduced as monoids in monoidal categories. 
Now we ask what is the relation between these monoidal categories. It is well-known that 
from a monad it can be derived both an applicative functor and an arrow. In this section we 
explain these and other derivations from the point of view of monoidal categories. 

For example, in order to obtain a pre-arrow from a monad, we are interested in creating 
a monoid in Pro, given a monoid in End 0 . Instead of trying to make up a monoid in Pro 
directly, we will define a monoidal functor between the underlying monoidal categories (in 
this case End 0 and Pro), and then use the following theorem to obtain a functor between 
the corresponding monoids. 

Theorem 8.1 

Let (F,0,tj) : ^ be a lax monoidal functor. If (M.m.e) is a monoid in ‘if, then 
(. FM,Fm o o tj) is a monoid in c 3. 

The above construction extends to a functor, and therefore we can induce functors between 
monoids by way of lax monoidal functors between their underlying monoidal categories. 

8.1 The Cayley Functor 

Applicative functors can be used to create arrows, here we present a monoidal functor that 
gives rise to such construction. We consider the Cayley functor flPastro & Street, 2008l > 

C: End* -4 SPro 

defined by 

C(F)(X,Y) =F[Y X ) 

Despite its name, this functor bears no direct relation with the Cayley representation. 
Proposition 8.2 

The Cayley functor is monoidal from End* to Pro. 

Not only this functor is monoidal but also, for each C(F), we can define a strength. This 
extends C into a monoidal functor from End* to SPro. 
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The resulting construction is the static arrow over (—»•), augmented with the original 
applicative flMcBride & Paterson, 20081 >. 

data Cayley f xy = Cayley (f (x-ty)) 

For every applicative functor, the Cayley functor constructs an arrow. 

instance Applicative/^ PreArrow (Cayley/) where 
arr/ = Cayley (pure/) 

(Cayley x) (Cayley y) = Cayley (pure (o) ©x) 

instance Applicative/ => StrongProfunctor (Cayley/) where 
first (Cayley x) = Cayley (pure (A/ X(b,d) -4 (f b,d )) ©x) 

instance Applicative/ => Arrow (Cayley/) 


8.2 The Kleisli Functor 


The well-known Kleisli category of a monad gives rise to a monoidal functor from monads 
to arrows. We consider the functor 

K : End 0 —4 SPro 


defined by 

K(F)(X,Y) = (F(Y)) x 

The implementation of the Kleisli functor is as follows, 
data Kleisli/ jc y = Kleisli (x —tfy) 
instance Monad/ => PreArrow (Kleisli/) where 
arr/ = Kleisli (Ax -¥ return (fx)) 

(Kleisli/) (Kleisli g) = Kleisli (Ax -^fx~»=g) 
instance Monad/ => StrongProfunctor (Kleisli/) where 

first (Kleisli/) = Kleisli (A (b,d) —1/ b»=Xc —> return (c,d)) 

instance Monad/ => Arrow (Kleisli/) 


8.3 The Identity Functor 


The identity endofunctor on [Set, Set] can be given a monoidal compatibility morphisms 
tj and (p such that it becomes a lax monoidal functor from End 0 to End*. The tj morphism 
is the identity on the identity functor. The morphism (p^.c -F *G—>F oG is given by: 


(F * G) (A) =FC x GD x A( Cx£> ) - 


4F(Cx (GDxaM)) 
tF(G(CxDxA( Cxfl ))) 
4 F(GA) 
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Hence, we obtain a lax monoidal functor Id : End 0 —> End*. 


By applying Theorem 18. II to Id, we obtain the well-known result that every monad 
is an applicative functor. 

instance Monad/ => Applicative/ where 
pure = return 

f®x =f^*= (Xg -> x»= return o g) 


8.4 The Reversed Monoid 

For every monoidal category 'if® = the opposite monoidal category Z/op 

can be defined, with the monoidal operator A® op B = B ® A. Given a monoid in a 
monoid in ^op can be defined. 

Theorem 8.3 

If (M, m, e) is a monoid in then (Af, m, e) is a monoid in ‘tfgop. 

In the case where the monoidal structure is symmetric, there is an isomorphism between 
A® op B and A ® B. Using this isomorphism, a monoidal structure can be given to the 
identity endofunctor over c €, giving a monoidal functor from to Zr/op. 

Theorem 8.4 

Let = (if, (gi.f.a.X.p.y) be a symmetric monoidal category, then we have a monoidal 
functor (Id,y, id): —> ^®o P . 

If we apply Theorem 18. II to a monoid M in ‘g®, we obtain a monoid in ‘jfgop. From 
Theorem [83] this monoid can be converted to a monoid in This last monoid is what 
we call the reversed monoid ofM. 

As already mentioned, End* is a symmetric monoidal category, and therefore the reverse 
monoid construction can be applied to a monoid in End*. The resulting monoid is known 
as the reversed applicative ( |Bird et al., 2013) . 

The reversed applicative is implemented as: 
data Rev/x = Rev [f x) deriving Functor 
instance Applicative/ =>• Applicative (Rev/) where 
pure = Revo pure 

Rev/© Rev x = Rev (pure (flip ($))®x®/) 

In intuitive terms, the difference between / and Rev/ as applicative functors is that 
Rev/ sequences the order of effects in the opposite order dBird etal., 2013| ). 


9 Conclusion 

We have seen how monads, applicative functors and arrows can be cast as monoids in a 
monoidal category. We exploited this uniformity in order to obtain free constructions and 
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representations for the three notions of computation. We have provided Haskell code for 
all of the concepts, showing that the ideas can be readily implemented without difficulty. 
The representations for applicative functors and arrows are new and they optimise code 
in the same cases the codensity transformation and difference lists work well: when the 
binary operation of the monoid is expensive on its first argument and therefore, we want to 
associate a sequence of computations to the right. In order to prove this formally, we could 
adopt the framework of Hackett and Hutton (120141 . 

The constructions presented for monads are well known dMacLane, 197 1| ). Day has 
shown the equivalence of lax monoidal functors and monoids with respect to the Day 
convolution ( |Day, 1970| ). However, in the functional programming community, this fact 
is not well-known. The construction of free applicatives is described by Capriotti and 
Kaposi (120141 . While they provide plenty of motivation for the use of the free applicative 
functor, we give a detailed description of its origin, as we arrive at it instantiating a general 
description of free monoids to the category of endofunctors which is monoidal with respect 
to the Day convolution. 

There are several works analysing the formulation of arrows as monoids ^Jacobs et al. , 20091 
|Atkey, 20TT| |Asada, 20101 |Asada & Hasuo, 20 TO] ). We differentiate from their work in 
our treatment of the strength. We believe our approach leads to simpler definitions, as 
only standard monoidal categories are used. Moreover, our definition of the free arrow is 
possible thanks to this simpler approach. 

Jaskelioff and Moggi (120101 use the Cayley representation for monoids in a monoidal 
category in order to lift operations through monoid transformers. However, the only in¬ 
stances considered are monads. 

For simplicity, we analysed the above notions of computations as Set functors. How¬ 
ever, for size reasons, many constructions were restricted to small functors, which are 
extensions of functors from small categories. Alternatively, we could have worked with 
accessible functors ( |Adamek & Rosicky, 1994[ ) (which are equivalent to small functors), 
or we could have worked directly with functors from small categories, as it is done in 
relative monads dAltenkirch et al., 2010| ). However, by working with small functors the 
category theory is less heavy and the implementation in Haskell is more direct. 

In functional programming, for each of the three notions of computation that we con¬ 
sidered, there are variants which add structure. For example, monads can be extended with 
MonadPlus, applicative functors with Alternative, and arrows with ArrowChoice, to name 
just a few. It would be interesting to analyse the relation between the different extensions 
from the point of view of monoidal categories with extra structure. 

Unifying different concepts under one common framework is a worthy goal as it deepens 
our understanding and it allows us to relate, compare, and translate ideas. It has long been 
recognised that category theory is an ideal tool for this task ( jReynolds, 1980| l and this 
article provides a bit more evidence of it. 
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